home *** CD-ROM | disk | FTP | other *** search
XSetup plugin | 2001-02-10 | 1.8 KB | 99 lines |
- "FILE"="Xteq Systems X-Setup Plugin 5.0"
- "TYPE"="6"
- "COUNT"="3"
- "UIPATH"="Internet\Opera\"
- "NAME"="Security Settings"
- "VERSION"="1.10"
- "LANGUAGE"="VBScript"
- "TEXT 1"="Enable SSL v2 secured connections"
- "TEXT 2"="Enable SSL v3 secured connections"
- "TEXT 3"="Enable TLS v1 secured connections"
- "DESCRIPTION 1"="Some options for Opera."
- "DESCRIPTION 2"="Opera may be obtained at http://www.opera.com"
- "AUTHOR"="Xteq Systems"
- "CONTACTURL"="http://www.xteq.com"
- "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
- "COMMENT 1"=" "
- "COMMENT 2"="Thanks to CptSiskoX for the settings and the idea."
-
-
- sFile=""
- sVal_On="1"
- sVal_Off="0"
-
- sSec="SECURITY PREFS"
- sV1="Enable SSL v2"
- sV2="Enable SSL v3"
- sV3="Enable TLS v1.0"
-
-
- Sub GetINIFile
- sPath=RegReadValue("HKCU\Software\Opera Software\Last Directory")
- sFile=sPath & "\OPERA.ini"
-
- if FileExists(sFile)=false then
- sFile=GetWinDir & "OPERA.ini"
- end if
- End Sub
-
-
- Sub Plugin_Initialize
- Call GetINIFile
-
- If FileExists(sFile) then
-
- i=IniReadValue(sFile,sSec,sV1)
- if i=sVal_On then SetUiElement 1,true
-
- i=IniReadValue(sFile,sSec,sV2)
- if i=sVal_On then SetUiElement 2,true
-
- i=IniReadValue(sFile,sSec,sV3)
- if i=sVal_On then SetUiElement 3,true
-
- else
- Call Disable()
- End if
-
- End Sub
-
-
- Sub Plugin_CheckData(ElementIndex)
- End Sub
-
-
-
- Sub Plugin_Apply(ElementIndex,ElementSubIndex)
- b=GetUIElement(1)
- if b=true then
- s=sVal_On
- else
- s=sVal_Off
- end if
- Call iniWriteValue(sFile,sSec,sV1,s)
-
- b=GetUIElement(2)
- if b=true then
- s=sVal_On
- else
- s=sVal_Off
- end if
- Call iniWriteValue(sFile,sSec,sV2,s)
-
- b=GetUIElement(3)
- if b=true then
- s=sVal_On
- else
- s=sVal_Off
- end if
- Call iniWriteValue(sFile,sSec,sV3,s)
-
- End Sub
-
-
- Sub Plugin_Terminate
- End Sub
-
-
-
-